Sub ׸( As MSForms.Frame, Է As Range)

    Dim Ʈ As Control
    
    Է.ClearContents
        
    For Each Ʈ In .Controls
    
        If TypeName(Ʈ) = "OptionButton" Then
        
            If Ʈ.Value = True Then

                Է.Value = Ʈ.Caption
                Exit For

            End If
        
        End If
    
    Next

End Sub